home *** CD-ROM | disk | FTP | other *** search
/ Loadstar - Compleat Programmer / comprog1.d81 / b.state tables (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  1KB  |  32 lines
  1. 10 dv=peek(186):ifdv<8thendv=8
  2. 100 poke53281,0:print"[147]             [155][204]oading [205][204]..."
  3. 110 sys57812"state tables.o",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  4. 120 :
  5. 130 print"[147]     [208]ress any key to begin..."
  6. 140 print"    [152]([215]hile the demo is running, press"
  7. 150 print"     any key to return to [204][207][193][196][211][212][193][210])[159]"
  8. 160 geta$:ifa$=""then160
  9. 170 sys49152
  10. 200 print"[147][154]  [206]otice that the pattern doesn't
  11. 210 [153]"  follow the usual peeklack - (NULL)hite -"
  12. 220 [153]"  (NULL)ed - lenyan - (NULL)urple, etc. sequence.
  13. 230 print"  [193] state table allows you to create
  14. 240 [153]"  ascatn(NULL)(NULL) custom patterns.  (NULL)he trade-off"
  15. 250 [153]"  is that you must create the state
  16. 260 print"  table beforehand.
  17. 300 [153]"  ((NULL)open)ee demo again   ((NULL)open)uit to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
  18. 310 [161]a$:[139]a$[179][177]"s"[175]a$[179][177]"q"[167]310
  19. 320 [139]a$[178]"s"[167]170
  20. 330 [137]40000
  21. 10000 [159]15,8,15,"s0:bits":[160]15:[148]"bits",8:[128]
  22. 40000 [129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
  23. 40010 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]40030
  24. 40020 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
  25. 40030 a$[178]"hello connect":[129]j[178]8[164]29:i[178][194](828[170]j[171]8):[139]i[178]14[167][130]
  26. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  27. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  28. 40060 [130]:[153]"load":[151]53272,23:[151]186,8:[128]
  29. 40070 q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  30. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  31. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  32.